Libris Britannia 4/science library(b).zip/science library(b)/HAM_RAD/LOGGING/3090.ZIP/LOGDUP.PRG

Text File | 1987-03-14 | 4KB | 123 lines

* LOGDUP.PRG
* CALLED BY HAM.CMD
* REV 10/01/83
* REV 03/08/87 FOR USE ON PC
SET TALK OFF
USE LOG INDEX LOG
SET INDEX TO LOG
DO WHILE .T.
CLEAR
@ 1,0 SAY 'ENTER [ END ] TO EXIT'
@ 2,0 SAY 'ENTER [ LAST ] TO VIEW LAST ENTRY'
@ 0,25 SAY '**** LOG FILE ****'
?
?
ACCEPT 'CALL: ' TO MCALL
STORE UPPER(MCALL) TO MCALL
    IF MCALL = 'END'
       SET TALK ON
       CLEAR
       RETURN
    ENDIF
    IF MCALL = 'LAST'
       USE LOG
       GOTO BOTTOM
       DISPLAY
         ACCEPT 'AMMEND: ' TO MAMMEND
         STORE UPPER(MAMMEND) TO MAMMEND
            IF MAMMEND = 'Y'
               EDIT
            ENDIF
       RELEASE MAMMEND
       RELEASE MCALL
       CLEAR
       USE LOG INDEX LOG
       SET INDEX TO LOG
       LOOP
    ENDIF
FIND &MCALL
    IF (EOF() .OR. BOF())
       @ 12,40 SAY 'CALL NOT FOUND'
     ACCEPT 'ENTER: ' TO MENTER1
     STORE UPPER(MENTER1) TO MENTER1
         IF MENTER1='Y'
            GO BOTTOM
            DO GETUTC
            CLEAR
            APPEND BLANK
            REPLACE HOUR WITH MHOUR
            REPLACE MIN WITH MMIN
            REPLACE CALL WITH MCALL
            REPLACE BAND WITH MBAND
            REPLACE MONTH WITH MMO
            REPLACE DAY WITH MDAY
            REPLACE YEAR WITH MYR
            @ 0,25 SAY '**** LOG FILE ****'
            @ 3,0 SAY 'LOGGING '+CALL+' ON THE '+BAND+' METER BAND'
            @ 7,0 SAY 'HIS NAME    ' GET NAME
            @ 8,0 SAY 'HIS SIGNAL  ' GET HISSIG
            @ 9,0 SAY 'MY SIGNAL   ' GET MYSIG
            @ 10,0 SAY 'FREQUENCY   ' GET FREQUENCY
            @ 11,0 SAY 'HIS CITY    ' GET CITY
            @ 12,0 SAY 'HIS STATE   ' GET STATE
            @ 13,0 SAY 'HIS COUNTRY ' GET COUNTRY
            @ 14,0 SAY 'HIS QSL MAN ' GET QSLMAN
            @ 15,0 SAY 'REMARKS     ' GET REMARKS
            READ
            ? CHR(23)
            LOOP
         ENDIF
    ENDIF
    IF CALL = MCALL
     @ 5,1 SAY 'MO'
     @ 5,4 SAY 'DY'
     @ 5,7 SAY 'YR'
     @ 5,10 SAY 'TIME'
     @ 5,16 SAY 'CALL'
     @ 5,27 SAY 'NAME'
     @ 5,36 SAY 'SNT'
     @ 5,40 SAY 'RVD'
     @ 5,44 SAY 'FREQ'
     @ 5,52 SAY 'BND'
     @ 5,56 SAY 'EXCHANGE'
     @ 5,68 SAY 'QSLMAN'
    DO WHILE CALL = MCALL .AND..NOT. EOF()
       DISPLAY OFF
       SKIP
    ENDDO
     @ 20,0 SAY '                 '
       ACCEPT 'ENTER: ' TO MENTER
       STORE UPPER(MENTER) TO MENTER
          IF MENTER='Y'
            GO BOTTOM
            DO GETUTC
            CLEAR
            APPEND BLANK
            REPLACE HOUR WITH MHOUR
            REPLACE MIN WITH MMIN
            REPLACE CALL WITH MCALL
            REPLACE BAND WITH MBAND
            REPLACE MONTH WITH MMO
            REPLACE DAY WITH MDAY
            REPLACE YEAR WITH MYR
            @ 0,25 SAY '**** LOG FILE ****'
            @ 3,0 SAY 'LOGGING '+CALL+' ON THE '+BAND+' METER BAND'
            @ 7,0 SAY 'HIS NAME    ' GET NAME
            @ 8,0 SAY 'HIS SIGNAL  ' GET HISSIG
            @ 9,0 SAY 'MY SIGNAL   ' GET MYSIG
            @ 10,0 SAY 'FREQUENCY   ' GET FREQUENCY
            @ 11,0 SAY 'HIS CITY    ' GET CITY
            @ 12,0 SAY 'HIS STATE   ' GET STATE
            @ 13,0 SAY 'HIS COUNTRY ' GET COUNTRY
            @ 14,0 SAY 'HIS QSL MAN ' GET QSLMAN
            @ 15,0 SAY 'REMARKS     ' GET REMARKS
            READ
            ? CHR(23)
             LOOP
          ENDIF
    ENDIF
RELEASE MCALL
CLEAR
ENDDO
RETURN